home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 April / EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso / classx / x-dve / install_hd < prev    next >
Text File  |  1998-03-09  |  2KB  |  55 lines
  1. ;
  2. ; **************************************************************
  3. ; *** X-DVE 2.00SE Installation Script V1.00 //  02 Mar 1998 ***
  4. ; **************************************************************
  5.  
  6.  
  7. (complete 0)
  8.  
  9. (set @default-dest
  10.     (askdir
  11.         (prompt "Seleziona il Percorso in cui installare il cassetto di X-DVE ed i relativi files di supporto.")
  12.         (disk)
  13.         (help Seleziona @askdir-help)
  14.         (default @default-dest)
  15.     )
  16. )
  17.  
  18.  
  19. ;/* Check X-DVE.SHP to see if we are not in X-DVE drawer */
  20. (if (= 0 (exists (tackon @default-dest "X-DVE.shp")))
  21.     (
  22.         (set @default-dest (tackon @default-dest "X-DVE"))
  23.         (makedir @default-dest (infos)(help @makedir-help))
  24.     )
  25. )
  26. (complete 10)
  27.  
  28. (message "Installazione programma X-DVE.\n\n" "In questa fase verranno creati tutti i files necessari al funzionamento del programma.\n" "La procedura impiegherà qualche secondo.")
  29. (copyfiles 
  30.     (source "")
  31.     (all)
  32.     (dest @default-dest)
  33.     (prompt)
  34.     (help)
  35.     (infos)
  36. )
  37. (complete 70)
  38.  
  39.  
  40. (set defdest @default-dest)
  41. (startup "X-DVE"
  42.     (prompt (cat "Creazione assegnamento per il cassetto di X-DVE.\n"
  43.                      "Questa operazione permette di agevolare notevolmente l'installazione di future versioni "
  44.                      "del programma o dei relativi files di supporto, indicando al computer dove e' stato installato X-DVE."))
  45.     (help @startup-help)
  46.     (command ("Assign >NIL: X-DVE: \"%s\"\n" defdest))
  47.     (command ("Assign >NIL: FONTS: \"%s\" Add" (tackon defdest "Fonts")))
  48. )
  49. (makeassign "X-DVE" defdest)
  50. (execute "X-DVE:Utils/InstallLibs")
  51.  
  52. (complete 100)
  53.  
  54. (exit)
  55.